home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / PUMPMENU.TXT < prev    next >
Text File  |  1993-11-11  |  7KB  |  172 lines
  1. \ADD 60 TO CURRENT_MAIN_TOPIC
  2. \X MAINPAGE\HEIGHT 690\ROUNDS -1 SPEED 33\CLEAR SPRITES\CLEAR SHOW\ON KEY 4096 JUMP ALT_QUITED\ON KEY F10 JUMP MAINPAGE\ON KEY F2\ON KEY 7181
  3. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON\OVERLAY 1,A,43,21
  4. \LOCATE 50,32\WIDTH 924 DOTS CENTERED
  5. \"
  6. All About Pumps.
  7. \"
  8. \MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 1 TO U\CALLM NEW_TUBE_BOX
  9. \MOVE 38 TO Q\MOVE 160 TO R\MOVE 460 TO S\MOVE 500 TO T\MOVE 15 TO U\LINE Q,R,S,T,24,BF\CALLM TUBE_BOX
  10. \MOVE '202519PW' TO FONT_FLNM\CALLM RD_FON\LOCATE 58,190\WIDTH 380 DOTS\OVER 0,A,45,24
  11. In this program we will teach you how pumps work, what they do, the different types of pumps that are available, and how pump performance is measured and compared.
  12. \"
  13. You can always return to this main screen from anywhere else in the program by pressing FUNCTION KEY 10 (<F10>).
  14. \"
  15. To exit the program, press the ALT key and while holding the alt key down, press the Q key (<ALT+Q>).
  16. \MOVE 538 TO Q\MOVE 160 TO R\MOVE 988 TO S\MOVE 670 TO T\MOVE 15 TO U\LINE Q,R,S,T,24,BF\CALLM TUBE_BOX
  17. \MOVE '202519PW' TO FONT_FLNM\CALLM RD_FON\LOCATE 618,190\WIDTH 360 DOTS\OVER 0,A,44,24
  18. 1)  Where Pumps Are Used.
  19. \"
  20. \"
  21. 2)  How Pumps Work.
  22. \"
  23. \"
  24. 3)  Types of Pumps.
  25. \"
  26. \"
  27. 4)  Measuring Pump Performance.
  28. \"
  29. \"
  30. 5)  The Right Pump for the Job.
  31. \"
  32. \"
  33. 6)  Historical Background and
  34.          Some Famous Pumps.
  35. \"
  36. 7)  The Most Amazing Pump of All.
  37. \"
  38. \"
  39. 8)  Exit to DOS.
  40. \"
  41. \"
  42. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  43. \CALLM WAITBOX
  44. \MOVE 140 TO Q\MOVE 555 TO R\MOVE 370 TO S\MOVE 680 TO T\MOVE 5 TO U\CALLM TUBE_BOX
  45. \CALL SHOW_DONE_ONES\CALL INTRO_BOX
  46. \ON KEY F3 CALL TOGGLE_SOUND
  47. \MOVE CURRENT_MAIN_TOPIC TO E\ON KEY 7181 JUMP FIRST_PUMP
  48. \MOUSE FRAME=0,1 L=596,CURRENT_MAIN_TOPIC W=596,206,596,626 ACCURACY=0,1 ROUNDS=0
  49. \ON KEY F10\ROUNDS -1 SPEED 22\CLEAR SPRITES\SPRITE L=160,575 A=1
  50. \IF LAST_ERROR=0\SPRINT 4 TO 18\ELSE\SPRINT 4,4\ENDIF\RUN MOUSE
  51. \X FIRST_PUMP\MOVE E TO CURRENT_MAIN_TOPIC\CLEAR MOUSE\ON KEY 7181
  52. \CALLM WAITOFF\LINE 40,530,500,740,1,BF\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  53. \IF CURRENT_MAIN_TOPIC<260\MOVE 1 TO MODULE_ONE
  54. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  55. Where are pumps used?
  56. \MOVE 11000 TO CURR_PG\MOVE 'WHEREPUM' TO TEXT_FLNM\CALLM RD_TXT
  57. \ELSE
  58. \IF CURRENT_MAIN_TOPIC<320\MOVE 1 TO MODULE_TWO
  59. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  60. How Pumps Work.
  61. \MOVE 12000 TO CURR_PG\MOVE 'HOW_PUMP' TO TEXT_FLNM\CALLM RD_TXT
  62. \ELSE
  63. \IF CURRENT_MAIN_TOPIC<380\MOVE 1 TO MODULE_THREE
  64. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  65. Types of Pumps.
  66. \MOVE 13000 TO CURR_PG\MOVE 'TYPEPUMP' TO TEXT_FLNM\CALLM RD_TXT
  67. \ELSE
  68. \IF CURRENT_MAIN_TOPIC<440\MOVE 1 TO MODULE_FOUR
  69. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  70. Measuring Pump Performance.
  71. \MOVE 14000 TO CURR_PG\MOVE 'MEASURE' TO TEXT_FLNM\CALLM RD_TXT
  72. \ELSE
  73. \IF CURRENT_MAIN_TOPIC<500\MOVE 1 TO MODULE_FIVE
  74. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  75. The Right Pump for the Job.
  76. \MOVE 15000 TO CURR_PG\MOVE 'WHICHPUM' TO TEXT_FLNM\CALLM RD_TXT
  77. \ELSE
  78. \IF CURRENT_MAIN_TOPIC<560\MOVE 1 TO MODULE_SIX
  79. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  80. Historical Background and Some Famous Pumps.
  81. \MOVE 16000 TO CURR_PG\MOVE 'HISTORY' TO TEXT_FLNM\CALLM RD_TXT
  82. \ELSE
  83. \IF CURRENT_MAIN_TOPIC<620\MOVE 1 TO MODULE_SEVEN
  84. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  85. The Most Amazing Pump of All.
  86. \MOVE 17000 TO CURR_PG
  87. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ELSE
  88. \MOVE 'AMAZINGP' TO TEXT_FLNM\CALLM RD_TXT
  89. \ELSE
  90. \IF CURRENT_MAIN_TOPIC<680\MOVE 1 TO MODULE_EIGHT
  91. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  92. Thank you and Goodbye!
  93. \ON KEY 7181\CALL END_ROUTINE
  94. \JUMP ALT_QUITED
  95. \ELSE
  96. \BEEP 33,99\JUMP MAINPAGE
  97. \ENDIF
  98. \X QUITIT\END
  99. \X MAIN_TITLE
  100. \MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 8 TO U\LINE Q,R,S,T,21,BF\CALLM TUBE_BOX
  101. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  102. \LINE 0,145,1023,720,1,BF\LINE 0,721,569,768,1,BF
  103. \LOCATE 50,61\WIDTH 924 DOTS CENTERED
  104. \RETURN
  105. \X END_ROUTINE\ON KEY F10 JUMP MAINPAGE
  106. \MOVE 'GOOD_BYE' TO SOUND\CALLM PLAYSOUND
  107. \LOC 110,190\WIDTH 800 DOTS CENTERED\OVER 1,A,53,21\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  108. \MOVE 110 TO Q\MOVE 190 TO R\MOVE 910 TO S\MOVE 420 TO T\MOVE 7 TO U\LINE Q,R,S,T,21,BF\CALLM NEW_TUBE_BOX
  109. \"
  110. Thank you for using our products!
  111. See you next time!
  112. \"
  113. \LOCATE 110,300\OVER 1,A,44,21
  114. <RETURN>: Exit to DOS.
  115. \IF DEMO_MODE='YES'
  116. <F2>: Order ALL ABOUT PUMPS.
  117. \ELSE
  118. \<F2>: Order additional copies.
  119. \ENDIF
  120. <F10>: Back to program.
  121. \ON KEY 7181 JUMP ALT_QUITED
  122. \"
  123. \MOVE 130 TO Q\MOVE 540 TO R\MOVE 310 TO S\MOVE 654 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  124. \LOC 130,540\WIDTH 180 DOTS CENTERED\OVER 1,A,44,21
  125. The Animated Software Company
  126. \MOVE 700 TO Q\MOVE 540 TO R\MOVE 880 TO S\MOVE 654 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 700,540\OVER 1,A,48,21
  127. Developed
  128. in
  129. the
  130. U.S.A.
  131. \MOVE 450 TO Q\MOVE 550 TO R\MOVE 560 TO S\MOVE 650 TO T\MOVE 9 TO U\LINE Q,R,S,T,27,BF\CALLM TUBE_BOX
  132. \IF EMM_AVBL=0\MOVE 'ONE_FLAG' TO PIC_FLNM\CALLM RD_PIC\SHOW 480,582,1\ON KEY F2 CALL PR_ORDER\WAIT NOW -1\JUMP BYE_DONE\ENDIF
  133. \MOVE 'USA_FLAG' TO PIC_FLNM\CALLM RD_PIC
  134. \IF LAST_ERROR>0\WAIT NOW -1\JUMP BYE_DONE\ENDIF
  135. \CLEAR SPRITES\ON ERROR JUMP NOVARIABLE_SPD
  136. \ROUNDS 2229 SPEE [25,R]\JUMP VARSPEED\X NOVARIABLE_SPD
  137. \ROUNDS 2229 SPEED 32\X VARSPEED\ON ERROR
  138. \SPRITE A=1 F=Y L=480,582
  139. \SCREEN LINE=580,630 ;this version fails in 8.26/8.27!
  140. \SAVE SCREEN
  141. \SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
  142. \SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
  143. \SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
  144. \ON KEY F2 CALL PR_ORDER\RUN
  145. \X BYE_DONE\RETURN
  146. \X PR_ORDER\CALLM PRINT_ORDER\RETURN
  147. \X TOGGLE_SOUND\IF SOUND_CONTROL='OFF'\MOVE 'ON' TO SOUND_CONTROL\ELSE\MOVE 'OFF' TO SOUND_CONTROL\ENDIF\RETURN
  148. \X GLOSSARY\LINE 0,0,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  149. \X ALT_QUITED\ON ERROR\END
  150. \X SHOW_DONE_ONES\MOVE 544 TO Q\MOVE 195 TO R\MOVE 60 TO S
  151. \IF MODULE_ONE>0    \SHOW Q,R,2\ENDIF\ADD S TO R
  152. \IF MODULE_TWO>0    \SHOW Q,R,2\ENDIF\ADD S TO R
  153. \IF MODULE_THREE>0  \SHOW Q,R,2\ENDIF\ADD S TO R
  154. \IF MODULE_FOUR>0   \SHOW Q,R,2\ENDIF\ADD S TO R
  155. \IF MODULE_FIVE>0   \SHOW Q,R,2\ENDIF\ADD S TO R
  156. \IF MODULE_SIX>0    \SHOW Q,R,2\ENDIF\ADD S TO R
  157. \IF MODULE_SEVEN>0  \SHOW Q,R,2\ENDIF\ADD S TO R
  158. \IF MODULE_EIGHT>0  \SHOW Q,R,2\ENDIF\ADD S TO R
  159. \IF MODULE_NINE>0   \SHOW Q,R,2\ENDIF\ADD S TO R
  160. \IF MODULE_TEN>0    \SHOW Q,R,2\ENDIF\ADD S TO R
  161. \IF MODULE_ELEVEN>0 \SHOW Q,R,2\ENDIF\ADD S TO R
  162. \IF MODULE_TWELVE>0 \SHOW Q,R,2\ENDIF\ADD S TO R
  163. \RETURN
  164. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  165. \END
  166. \X INTRO_BOX
  167. \MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 93 TO V\MOVE 1 TO U
  168. \X LOOP1\LINE 49,R,564-Q,31,V\LINE 449+Q,31,974,R,V
  169. \LINE 49,150-R,564-Q,119,V\LINE 449+Q,119,974,150-R,V\ADD U TO V\IF V>101\MOVE -1 TO U\ENDIF\IF V<90\MOVE 1 TO U\ENDIF
  170. \ADD 3 TO R\ADD 16 TO Q\IF R<119\JUMP LOOP1\ENDIF
  171. \RETURN
  172.